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WELCOME TO 


n Timers 
g BY bStn-iNFO 


السلام عليكم و رحمة الله و بركاثة. 
هذا الدرس يتمركز حول التايمر 5711761515 ماهو ؟ مالقَائِدةٌ منة ؟ كيف ؟ و Jalal‏ ؟ 
حيث سندرس التايمر من الأساس و ليس وضع الأداة على الفورم و .. مبرولكه! 
منندع لغات ال 
التايمر 5 المؤقت ٥‏ هو وحدة توقيت يحتاج إليها المبرمج ,تستعمل في الكثير من البرامج 


و هي تخصيص مهلة زمنية يتم مع مَضِيّهَا إرسال رسالة5 القيام بعمل ٠.‏ أي سرعة إرسال 
الرسالة. 


التايمر ۴ Timer‏ 8 يعمل بوحدة الميليثانية أي 1000/1 ثانية و هي فترة صغيرة جدا. 


لكن USS‏ للتايمر حدود حيث أصغرها1 ميليثانية و أكبرها 4.294.967.295 ميليثانية و هو 
مايقارب 50 يوما!!! 


التعامل مع التايمر يمر ب3 مراحل كما يوضحه المخطط 


منتدى لغات! 


ee ee ee) 
Alocate Timer المرحلة الأولى:‎ 


مرحلة إنشاء التايمر ١11٠۲۴‏ و حجز مكان له في الذاكرة. 


غالبا ما تكون هذه المرحلة عند إنشاء النافذة مثلا WM_INITDIALOGuie‏ أو 
WM_CREATE..‏ 


فيتم الحجز مع إنشاء النافذة , و هناك دالة مسؤولة عن ذلك SetTimega‏ 
الدالة تأخذ هذا الشكل: 


UINT_PTR SetTimer( 
HUND nd, 
UINT_PTR بع محم رانم‎ 
UINT Alp mE, 
TIMERPROC لامج و رما‎ unc 
0 


http://msdn.microsoft.com/en-us/library/ms644906%28VS .85%29.aspx 
User32. dll] هذه الدالة من مكتبة‎ 


و هي تتعامل مع وحدة حساب الوقت المتواجدة في59/05 ROM‏ لكن بطريقة غير مباشرة 


حيث تحول 
إلى دالة تعمل تحت Ais! Kernel Mode‏ ليس موضوعنا اليوم , للدالةكما نلاحظ 4 
بارامترات هي: 


hWnd :‏ هو مقبض للنافذة الد 


9a snIDEvent :‏ رقم التايمر الذي سنعرفه 8 هذا البارامتر مهمجدا عند استخدام أكثر من 1 
تايمر. a‏ 


guElapse :‏ تحدد قيمة المهلة , كما قلنا سابقابالميليثانية. 


glpTimerFunc :‏ هو مؤشر نحو الدالة 


المرحلة الثانية: use Timer‏ 
هذه المرحلة تخص إستعمال التايمر كما قلنا سابقا أي إرسال رسالة مع مرور المهلة 
هذه الرسالة تسمى WM_TIMER‏ 


و مع مرور فترة معينة يتم إعادة القيام بالوظائف عند تلك الرسالة 


كمثال نضع شرطا , و في Interval-‏ وضعنا 3000 ميليثانية , سيعيد البرنامج التحقق من 
الشرط مع مرور كل 3 ثوان. 


المرحلة الثالثة: Delete Timer‏ 
هذه العملية ضرورية و تعني التخلص من التايمر 
التخلص من التايمر يكون Le}‏ بأمر من المبرمج أو بدونه 
حيث بأمر من المبرمج نعني بذلك أن المبرمج سيقوم بحذف التايمر عند الإنتهاء من وظيفته 
هنا سيستخدم دالة مسؤولة عن ذلك Kill Timed‏ 


BOOL KillTimer( 
HUND Asp? 
UINT_PTR wife tant 
iW 


هذه الدالة كما نلاحظ تأخذ بارامترين هما 
hWnd :‏ هو مقبض للنافذة التى بها التايمر 
Event :‏ إناو_هو رقم التايمر الذي به تتعرف الدالة إليه , حسبماحددناه سابقا. 
http://msdn.microsoft.com/en-us/library/ms644903%28VS .85%29.aspx‏ 
قلنا سابقا أن التايمر يحذف في كلتا الحالتين سواء بأمر من المبرمج أو بدونه 


بدون المبرمج التايمر سيحذف تلقائيا عند مغادرة البرنامج و بالطبع سيستمل تلقائيا الدالة 
KillTimer‏ 


| الرهجة - بيت ابدام‎ Os) 
Ligh eee ASh من الأشيّاء النّي‎ Sst هناك‎ 8 Timer n الآن بعد توضيح آلية عمل التايمر‎ 
lege Ct سنأتي أولا بمثال بسيط لكيفية استخدام التايمر مع‎ 


سنعمل على DevC++ ide‏ لتسهيل الكثير من الأمور 


hSmiNfO 


بعدها إذهب إلى 


File==>New==>Project 


Basic Introduction | MultiMedia | 


a B $ [lee 


Ss Console Static Library Empty A 
Application 
١0 


x 


Description: A 
û, standard Windows aicsin 


— Project options: 


Name: C C Project Ke Project 
Project] [| Make Default Language 


o ] x Cancel | ? Help |‏ چ 


هذا سورس بسيط كان مخزن مسبقا مع البرنامج 


#include <windows.h> 


/* Declare Windows procedure */ 
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM); 


/* Make the class name into a global variable */ 
char szClassName[ ] = "WindowsApp"; 


int WINAPI WinMain (HINSTANCE hThisInstance, 
HINSTANCE hPrevinstance, 
LPSTR lpszArgument, 
int nFunsterStil) 


{ 
HWND hwnd; /* This is the handle for our window */ 
MSG messages; /* Here messages to the application are saved */ 
WNDCLASSEX wincl; /* Data structure for the windowclass */ 


/* The Window structure */ 

wincl.hInstance = hThisInstance; 

wincl.lpszClassName = szClassName; 

wincl.1lpfnWndProc = WindowProcedure; /* This function is called by windows */ 
wincl.style = CS_DBLCLKS; /* Catch double-clicks */ 

wincl.cbSize = sizeof (WNDCLASSEX) ; 


/* Use default icon and mouse-pointer */ 
wincl.hIcon = LoadIcon (NULL, IDI APPLICATION) ; 
wincl.hIconSm = LoadIcon (NULL, IDI _ APPLICATION) ; 
wincl.hCursor = LoadCursor (NULL, IDC ARROW); 


wincl.lpszMenuName = NULL; /* No menu */ 
wincl.cbClsExtra = 0; /* No extra bytes after the window class */ 
wincl.cbWndExtra = 0; /* structure or the window instance */ 


/* Use Windows's default color as the background of the window */ 
wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND; 


/* Register the window class, and if it fails quit the program */ 
if (!RegisterClassEx (&wincl)) 
return 0; 


/* The class is registered, let's create the program*/ 
hwnd = CreateWindowEx ( 


0, /* Extended possibilites for variation */ 
szClassName, /* Classname */ 
"Windows App", /* Title Text */ 


pile Log VA Debug Find Results 


لاحظ هذا المكان في الأسفل 


LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM 1Param) 

{ 
switch (message) /* handle the messages */ 
{ 


هذا ما يسمى بحلقة الرسائل حيث هنا قلب البرنامج 


نلاحظ وجود رسالة واحدة هي WM DESTROY‏ و هي خاصة بغلق البرنامج 
كما قلنا سابقا سنضيف رسالتين 
WM_CREATE‏ و بداخلها سنضع دالة إنشاء التايمر) 5611111 


WM_ TIMER‏ و بداخلها سنضع الكود الخاص بالتايمر 


switch (message) /* handle the messages */ hSm iNfO 


case WM CREATE: 
SetTimer (hwnd, 0, 3000,0); 
break; 


case WM_DESTROY: 
أظن كل شيء واضح إلى الآن‎ 
لاحظوا في المثال وضعت علبة تظهر مع مرور كل3 ثوان‎ 


منتتع لغات fino!‏ 


النتيجة ستكون نافذة عادية 


بعد مرور 3 ثوان 


DEA 


هنا ستظهر نافذة فارغة ... 


ننتظر مرور 3 توان 


This is a timer test !! 


return messages.wParam; 


فقط astit‏ ننتظر مدة أطول 


E] Windows App | ك‎ || & || 55 | 


للتأكد ننتظر مدة أطول 


pocer messages */ 


Information | Xi | 
Information Xa 
hSm_iNfO T| Information | 55 | 
Tl Information [ Xa) | 
/* The program return-value is - The value that —— 
Information pd || 
return messages.wParam; 
} T| 
ad This function is called by the ‘indows function DispatcH This is a timer test !! 
LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WP. 


switch (message) /* handle the messages 
+ 


هنا أكون قد وضعت مثالا بسيطا للتوضيح 
ملاحظة : كما قلنا سابقا لم نتخلص من التايمر لذا فسيتخلص Ade‏ البرنامج عند الخرولي) 
لكن يمكننا توقيف عمله بإضافة 
KillTimer(hwnd,0);‏ 


السورس المستعمل فى المثال أعلام 
#include <windows.h>‏ 
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);‏ 
char szClassName|[ ] = "WindowsApp";‏ 


int WINAPI WinMain (HINST ANCE hThisInstance, 
HINST ANCE hPrevinstance, 
LPSTR lIpszArgument, 
int nFunsterStil) 


HWND hwnd; /* This is the handle for our window */ 
MSG messages; /* Here messages to the application are saved */ 
WNDCLASSEX wincl; /* Data structure for the windowclass */ 


/* The Window structure */ 

wincl.hInstance = hThisinstance; 

wincl.lpszClassName = szClassName; 

wincl.|pfnWndProc = WindowProcedure; _ /* This function is called by windows */ 
wincl.style = CS_DBLCLKS; /* Catch double-clicks */ 

wincl.cbSize = sizeof (WNDCLASSEX); 


/* Use default icon and mouse-pointer */ 

wincl.hlcon = Loadicon (NULL, IDI_APPLICATION); 
wincl.hlconSm = Loadicon (NULL, IDLAPPLICATION); 
wincl.hCursor = LoadCursor (NULL, IDC_ARROW); 


wincl.lpszMenuName = NULL; /* No menu */ 
wincl.cbClsExtra = 0; /* No extra bytes after the window class */ 
wincl.cbWndExtra = 0; /* structure or the window instance */ 


/* Use Windows's default color as the background of the window */ 
wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND; 


/* Register the window class, and if it fails quit the program */ 
if (!RegisterClassEx (&wincl)) 
return 0; 


/* The class is registered, let's create the program*/ 

hwnd = CreateWindowEx ( 
0, /* Extended possibilites for variation */ 
szClassName, /* Classname */ 
“Windows App", /* Title Text */ 
WS_OVERLAPPEDWINDOW, /* default window */ 
CW_USEDEFAULT, /* Windows decides the position */ 
CW_USEDEFAULT, /* where the window ends up on the screen */ 


544, /* The programs width */ 

375, /* and height in pixels */ 

HWND_DESKTOP, /* The window is a child-window to desktop */ 
NULL, /* No menu */ 

hThisInstance, /* Program Instance handler */ 

NULL /* No Window Creation data */ 


); 


/* Make the window visible on the screen */ 
ShowWindow (hwnd, nFunsterStil); 


/* Run the message loop. It will run until GetMessage() returns 0 */ 
while (GetMessage (&messages, NULL, 0, 0)) 


/* Translate virtual-key messages into character messages */ 
TranslateMessage(&messages); 

/* Send message to WindowProcedure */ 
DispatchMessage(&messages); 


} 


return messages.wParam; 


/* This function is called by the Windows function DispatchMessage() */ 


LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 
{ 
switch (message) /* handle the messages */ 


1 


case WM_CREATE: 
SetTimer(hwnd,0,3000,0); 
break; 


case WM_TIMER: 
MessageBox(hwnd,"This is a timer test !!","Information",MB_OK); 
break; 


case WM_DESTROY: 
PostQuitMessage (0); /* send a WM_QUIT to the message queue */ 
break; 

default: /* for messages that we don't deal with */ 
return DefWindowProc (hwnd, message, wParam, IParam); 


return 0; 


} 


الآن بقيت طريقة إستخدام تايمرين 2 أو أكثر: 
علينا أولا تعريف ثابتين يحملان الرقم1 و 2 
#define TIMER_ONE 1‏ 


#define TIMER_TWO 2‏ 
بعدها علينا تعريف التايمرين بإستخدام الدالة SetTime‏ 


SetTimer (hwnd, TIMER_ONE, 3000, NULL) ; 
SetTimer (hwnd, TIMER_TWO, 6000, NULL) ; 


ثم نتجه إلى حلقة الرسائل و نغير كالتالي 


case WM_TIMER: 
switch (wParam) 


{ 
case TIMER_ONE: 


MessageBox(NULL,"This is Timer 1","Timer1",MB_OK); 
break ; 

case TIMER_TWO: 
MessageBox(NULL,"This is Timer 2","Timer2",MB_OK); 
break ; 


} 
ليكون إجمالي ماكتبناه 


#include <windows.h> 
#define TIMER_ONE 1 
#define TIMER_TWO 2 
/* Declare Windows procedure */ 
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM); 
/* Make the class name into a global variable */ 
char szClassName[ ] = "WindowsApp"; 
int WINAPI WinMain (HINSTANCE hThisInstance, 
HINSTANCE hPrevinstance, 
LPSTR IpszArgument, 
int nFunsterStil) 


{ 
HWND hwnd; /* This is the handle for our window */ 
MSG messages; /* Here messages to the application are saved */ 
WNDCLASSEX wincl; /* Data structure for the windowclass */ 


/* The Window structure */ 

wincl.hInstance = hThisInstance; 

wincl.lpszClassName = szClassName; 

wincl.|pfnWndProc = WindowProcedure; /* This function is called by windows */ 
wincl.style = CS_DBLCLKS; /* Catch double-clicks */ 

wincl.cbSize = sizeof (WNDCLASSEX); 


/* Use default icon and mouse-pointer */ 

wincl.hlcon = Loadicon (NULL, IDI_LAPPLICATION); 
wincl.hlconSm = Loadicon (NULL, IDIL_APPLICATION); 
wincl.hCursor = LoadCursor (NULL, IDC_ARROW); 


wincl.lpszMenuName = NULL; /* No menu */ 
wincl.cbClsExtra = 0; /* No extra bytes after the window class */ 
wincl.cbWndExtra = 0; /* structure or the window instance */ 


/* Use Windows's default color as the background of the window */ 

wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND; 

/* Register the window class, and if it fails quit the program */ 

if (!RegisterClassEx (&wincl)) 

return 0; 

/* The class is registered, let's create the program*/ 

hwnd = CreateWindowEx ( 
0, /* Extended possibilites for variation */ 
szClassName, /* Classname */ 
"Windows App", /* Title Text */ 
WS_OVERLAPPEDWINDOW, /* default window */ 
CW_USEDEFAULT, /* Windows decides the position */ 
CW_USEDEFAULT, /* where the window ends up on the screen */ 


544, /* The programs width */ 

375, /* and height in pixels */ 

HWND_DESKTOP, /* The window is a child-window to desktop */ 
NULL, /* No menu */ 

hThisInstance, /* Program Instance handler */ 


NULL /* No Window Creation data */ 


/* Make the window visible on the screen */ 
ShowWindow (hwnd, nFunsterStil); 
/* Run the message loop. It will run until GetMessage() returns 0 */ 
while (GetMessage (&messages, NULL, 0, 0)) 
{ 
/* Translate virtual-key messages into character messages */ 
TranslateMessage(&messages); 
/* Send message to WindowProcedure */ 
DispatchMessage(&messages); 


/* The program return-value is 0 - The value that PostQuitMessage() gave */ 
return messages.wParam; 


} 


I* This function is called by the Windows function DispatchMessage() */ 
LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 


switch (message) /* handle the messages */ 


{ 


case WM_CREATE: 
SetTimer (hwnd, TIMER_ONE, 3000, NULL) ; 
SetTimer (hwnd, TIMER_TWO, 6000, NULL) ; 
break; 


case WM_TIMER: 
switch (wParam) 


case TIMER_ONE: 
MessageBox(NULL,"This is Timer 1","Timer1",MB_OK); 
break ; 

case TIMER_TWO: 
MessageBox(NULL,"This is Timer 2","Timer2",MB_OK); 
break ; 


} 


return 0 ; 


case WM_DESTROY: 
PostQuitMessage (0); /* send aWM_QUIT to the message queue */ 
break; 

default: /* for messages that we don't deal with */ 
return DefWindowProc (hwnd, message, wParam, IParam); 


return 0; 


الآن مع التجريب: 


JF Bl) LJNew A] lnsert To 


ننتظر قدر المدة التي حددناها : 
3 ثوان و تظهر الأولى 
6 ثوان لتظهر الثانية 


Pe. for our window */ 
` 5 5 
ch@,application are saved *, 


wincl.hInstance = hThisInstance; 

wincl.lpszClassName = szClassName; | 
wincl.lpfnWndProc = WindowProcedure»+------4t-Thżis-fi) 
wincl.style = CS_DBLCLKS; ل‎ /* Catch d 
wincl.cbSize = sizeof (WNDCLASSEX) ; 


/* Use default icon and mouse-pointer */ 


منتدى لغات pull‏ 
كآخر شيء سأضع بين أيديكم مثالا لإستخدام التايمر في مشروع بسيط من برمجتي: 


http://www.startimes2.com/f.aspx 1 


منتدى لغات البرمجة 
أرجو أن أكون وفقت في الشرح 
5 هذا الدرس لن تجده في أي موقع عربيم © 
السلام عليكم 
منتدى لغات البرمجة 
منتدى لغان البرعجة 


الكتاب و الشرح من تقديم hSm-iNfO‏ 
الإيميل : ab.houssem@hotmail.fr‏ 


لأي استفسار لا تتردد في الإتصال 


